program     //lcm
integer m,a,b,t
begin
a:=15;
b:=6;
m:=a*b;
while b/=0 do
	t:=b;
	b:=a%b;
	a:=t;
end
write m/a;
end.